home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / win_chil / about.frm next >
Text File  |  1995-09-06  |  4KB  |  119 lines
  1. VERSION 2.00
  2. Begin Form About 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About"
  6.    ClientHeight    =   2730
  7.    ClientLeft      =   2280
  8.    ClientTop       =   1545
  9.    ClientWidth     =   4965
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H00000000&
  12.    Height          =   3135
  13.    Left            =   2220
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   2730
  19.    ScaleWidth      =   4965
  20.    Top             =   1200
  21.    Width           =   5085
  22.    Begin PictureBox Picture1 
  23.       AutoSize        =   -1  'True
  24.       BorderStyle     =   0  'None
  25.       Height          =   615
  26.       Left            =   1920
  27.       Picture         =   ABOUT.FRX:0000
  28.       ScaleHeight     =   615
  29.       ScaleWidth      =   1005
  30.       TabIndex        =   1
  31.       Top             =   1920
  32.       Width           =   1005
  33.    End
  34.    Begin PictureBox Picture3 
  35.       BackColor       =   &H00C0C0C0&
  36.       BorderStyle     =   0  'None
  37.       Height          =   495
  38.       Left            =   480
  39.       ScaleHeight     =   495
  40.       ScaleWidth      =   3975
  41.       TabIndex        =   3
  42.       Top             =   1320
  43.       Width           =   3975
  44.       Begin Label Label2 
  45.          Alignment       =   2  'Center
  46.          BackColor       =   &H00C0C0C0&
  47.          Caption         =   "by Dennis Huss"
  48.          Height          =   255
  49.          Left            =   240
  50.          TabIndex        =   4
  51.          Top             =   120
  52.          Width           =   3495
  53.       End
  54.    End
  55.    Begin PictureBox Picture2 
  56.       BackColor       =   &H00C0C0C0&
  57.       BorderStyle     =   0  'None
  58.       Height          =   975
  59.       Left            =   480
  60.       ScaleHeight     =   975
  61.       ScaleWidth      =   3975
  62.       TabIndex        =   0
  63.       Top             =   120
  64.       Width           =   3975
  65.       Begin Label Label1 
  66.          Alignment       =   2  'Center
  67.          BackColor       =   &H00C0C0C0&
  68.          Caption         =   "WINDCHILL"
  69.          FontBold        =   -1  'True
  70.          FontItalic      =   0   'False
  71.          FontName        =   "Times New Roman"
  72.          FontSize        =   36
  73.          FontStrikethru  =   0   'False
  74.          FontUnderline   =   0   'False
  75.          Height          =   735
  76.          Left            =   120
  77.          TabIndex        =   2
  78.          Top             =   120
  79.          Width           =   3735
  80.       End
  81.    End
  82. End
  83. Sub BorderBox (source1 As Control, source2 As Control)
  84.     bleft% = source1.left - 20
  85.     btop% = source1.top - 20
  86.     bwide% = source1.width + 15
  87.     bhigh% = source1.height + 15
  88.  
  89.     source2.Line (bleft%, btop%)-Step(bwide%, 0), 0
  90.     source2.Line -Step(0, bhigh%), &HFFFFFF
  91.     source2.Line -Step(-bwide%, 0), &HFFFFFF
  92.     source2.Line -Step(0, -bhigh%), 0
  93.  
  94. End Sub
  95.  
  96. Sub BorderBoxRaised (source1 As Control, source2 As Form)
  97.     bleft% = source1.left - 20
  98.     btop% = source1.top - 20
  99.     bwide% = source1.width + 15
  100.     bhigh% = source1.height + 15
  101.  
  102.     source2.Line (bleft%, btop%)-Step(bwide%, 0), &HFFFFFF
  103.     source2.Line -Step(0, bhigh%), 0
  104.     source2.Line -Step(-bwide%, 0), 0
  105.     source2.Line -Step(0, -bhigh%), &HFFFFFF
  106.     
  107. End Sub
  108.  
  109. Sub Form_Paint ()
  110.     BorderBoxRaised picture2, about
  111.     BorderBoxRaised picture3, about
  112.     BorderBox Label2, picture3
  113. End Sub
  114.  
  115. Sub Picture1_Click ()
  116.      about.Hide
  117. End Sub
  118.  
  119.